Ucitati prirodan broj n i elemente niza x duzine n.Izracunati i prikazati sbir 
elemenata niza.


Sub zad1()
Dim x(100) As Double, n As Long, i As Long, s As Double
 Open "niz.txt" For Input As #1
 Input #1, n
 For i = 1 To n
 Input #1, x(i)
 Next
 Close #1
  s = 0
  For i = 1 To n
  s = s + x(i)
  Next
  MsgBox ("Zbir je " & s)
End Sub